home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / mus / misc / octahigh.lha / NextHighlight.omed < prev    next >
Encoding:
Text File  |  1998-10-04  |  266 b   |  10 lines
  1. /*Jump to the next Highlighted line. - Kjetil S. Matheussen*/
  2. options results
  3. ed_getnumlines var numlines
  4. ed_getcurrline var mline
  5. if mline=numlines-1 then exit
  6. do until (result | mline=numlines-1)
  7.     mline=mline+1
  8.     'ed_getlinehighlight' mline
  9. end
  10. 'ed_goto line' mline